Partial Class Equipo

    Public Sub asignarNota(ByVal pidR As Integer, ByVal pnota As String)
        Me.objDesglose = New Desglose(Me.id)
        Me.objDesglose.asignarNotaEquipo(pidR, pnota)
    End Sub

    Public Sub darNota(ByVal pidR As Integer, ByVal pnota As String)
        Me.objDesglose = New Desglose(Me.id)
        Me.objDesglose.darNotaEquipo(pidR, pnota, Me.idGrupo)
    End Sub

End Class
